package com.zhuss.appconfig;

import java.nio.charset.Charset;
import java.util.List;
import java.util.Map;
import java.util.Objects;
import java.util.Set;
import java.util.concurrent.TimeUnit;

import cn.hutool.core.util.ObjectUtil;
import com.zhuss.lock.Lock;
import com.zhuss.lock.LockExpireEnum;
import com.zhuss.lock.LockKeyUtil;
import lombok.extern.slf4j.Slf4j;
import org.springframework.beans.factory.annotation.Autowired;
import org.springframework.data.redis.connection.RedisConnection;
import org.springframework.data.redis.connection.RedisConnectionFactory;
import org.springframework.data.redis.connection.RedisStringCommands;
import org.springframework.data.redis.connection.ReturnType;
import org.springframework.data.redis.core.RedisConnectionUtils;
import org.springframework.data.redis.core.RedisTemplate;
import org.springframework.data.redis.core.types.Expiration;
import org.springframework.stereotype.Component;
import org.springframework.util.CollectionUtils;
/**
 * Redis工具类
 * @author zhushanshuo
 * @date   2019.12.05 13:01
 */
@Slf4j
@Component
public final class RedisProcessor implements Lock {
	
    @Autowired
    private RedisTemplate<String, Object> redisTemplate;
    // =============================common============================



    /**
     * 原子操作，处理自增线程ID Cmd
     */
    public static final String ClusterThreadIdCmd = "" +
            "return redis.call('incrby', KEYS[1], 1); "; // incrby

    /**
     * 多节点下，每个节点只处理自己的数据
     * WatchDog Cmd
     * 当锁处于活跃时，续命
     */
    public static final String WatchDogCmd = "" +
            " if (redis.call('exists', KEYS[1]) == 1) " +
            "   then " +
            "   redis.call('pexpire', KEYS[1], ARGV[1]) " +
            " end " +
            "return 1"; // 1 Lock*

    /*
     */
/**
 * 多节点下会有问题
 * WatchDog Cmd
 * 当锁处于活跃时，续命
 *//*

    public static final String WatchDogCmd = "" +
            "local array = redis.call('keys', KEYS[1]) " +
            "for i = 1, #array do " +
            "   if (redis.call('exists', array[i]) == 1) " +
            "   then " +
            "   redis.call('pexpire', array[i], ARGV[1]) " +
            "end " +
            "end " +
            "return 1"; // 1 Lock*
*/

    /**
     * 可重入加锁脚本
     *  KEYS[1]：锁的key
     *  ARGV[1]：当前线程ID
     *  ARGV[2]：过期时间: 单位：毫秒数
     * 1、如果锁不存在，或者为自己（当前线程）的锁，就获取并+1
     * 2、否则，加锁失败
     */
    public static final String ReentrantLockCmd = "" +
            "if (redis.call('exists', KEYS[1]) == 0 or redis.call('hexists', KEYS[1], ARGV[1]) == 1) \n" +
            "then\n" +
            "    redis.call('hincrby', KEYS[1], ARGV[1], 1);\n" +
            "    redis.call('pexpire', KEYS[1], ARGV[2]);\n" +
            "    return 1;\n" +
            "else\n" +
            "\treturn 0;\n" +
            "end";

    /**
     * 可重入解锁脚本
     *     KEYS[1]：锁的key
     *     ARGV[1]：当前线程ID
     * 1、判断自己（当前线程）的锁是否存在
     * 2、不存在，跳过
     * 3、存在则递减
     * 4、递减为0，释放锁
     */
    public static final String ReentrantUnlockCmd = "" +
            "if(redis.call('hexists', KEYS[1], ARGV[1]) == 0) then \n" +
            "    return 0; \n" +
            "elseif(redis.call('hincrby', KEYS[1], ARGV[1], -1) > 0) then \n" +
            "    return 1; \n" +
            "else \n" +
            "    redis.call('del', KEYS[1]); \n" +
            "    return 2; \n" +
            "end";

    /**
     * 分布式虚拟线程ID生成
     * 原子性 Redis key的自增长整形
     * @return
     */
    public Long genClusterThreadId() {
        return runLuaCmd(ClusterThreadIdCmd, LockKeyUtil.CLUSTER_THREAD_ID_KEY);
    }


    /**
     * Redis WatchDog
     * 当锁还存在时，续期30秒
     * @return
     */
    public void watch(String activeKey) {
        runLuaCmdSucc(WatchDogCmd, activeKey, LockExpireEnum.MILL_30000.mill);
    }


    /**
     * 支持可重入
     * 加锁，有阻塞
     * @param key
     * @param currentThreadId
     * @param lockTime
     * @param timeoutMill
     * @return
     */
    @Override
    public Boolean distributedLock(String key, Long currentThreadId, long lockTime, long timeoutMill){
        long startTime = System.currentTimeMillis();
        Boolean successFul;
        do{
            successFul = tryDistributedLock(key, currentThreadId, lockTime);
            if(!successFul) {
                if ((System.currentTimeMillis() - startTime) > (timeoutMill - 50)) {
                    break;
                }
                try {
                    //try 50 per sec
                    Thread.sleep(50);
                } catch (InterruptedException e) {
                    e.printStackTrace();
                    return null;
                }
            }
        } while (!successFul);
        return successFul;
    }

    /**
     * 支持可重入
     * 加锁，无阻塞
     * @param key
     * @param currentThreadId
     * @param lockTime
     * @return
     */
    @Override
    public Boolean tryDistributedLock(String key, Long currentThreadId, long lockTime) {
        return runLuaCmdSucc(ReentrantLockCmd, key, currentThreadId, lockTime);
    }

    /**
     * 支持可重入
     * KEYS[1]：锁的key
     * ARGV[1]：当前线程ID
     * 解锁
     * @param key
     * @return
     */
    @Override
    public Boolean unlock(String key, Long currentThreadId) {
        return runLuaCmdSucc(ReentrantUnlockCmd, key, currentThreadId);
    }

    private Boolean runLuaCmdSucc(String luaCmd, Object... args) {
        Long result = runLuaCmd(luaCmd, args);
        return ObjectUtil.isNotNull(result) && result > 0l;
    }


    private Long runLuaCmd(String luaCmd, Object... args) {
        byte[][] keysAndArgs = new byte[args.length][];
        for (int i = 0; i < args.length; i++) {
            keysAndArgs[i] = args[i].toString().getBytes(Charset.forName("UTF-8"));
        }
        RedisConnectionFactory factory = redisTemplate.getConnectionFactory();
        Long result = null;
        RedisConnection conn = factory.getConnection();
        try {
            result = conn.scriptingCommands().eval(luaCmd.getBytes(Charset.forName("UTF-8")), ReturnType.INTEGER, 1, keysAndArgs);
            log.info("lock run lua cmd: {} , args: {}, result: {}", luaCmd, args, result);
        } finally {
//            RedisConnectionUtils.releaseConnection(conn, factory, false);
            RedisConnectionUtils.releaseConnection(conn, factory);
        }
        return result;
    }





    /**
     * 解锁脚本，原子操作
     */
    private static final String unlockScript =
            "if redis.call(\"get\",KEYS[1]) == ARGV[1]\n"
                    + "then\n"
                    + "    return redis.call(\"del\",KEYS[1])\n"
                    + "else\n"
                    + "    return 0\n"
                    + "end";


    /**
     * 加锁，有阻塞
     * @param key
     * @param lockTime
     * @param timeoutMill
     * @return
     */
    @Deprecated
    public Boolean distributedLock(String key, long lockTime, TimeUnit lockTimeUnit, long timeoutMill){
        long startTime = System.currentTimeMillis();
        Boolean successFul;
        do{
            successFul = tryDistributedLock(key, lockTime, lockTimeUnit);
            if(!successFul) {
                if ((System.currentTimeMillis() - startTime) > (timeoutMill - 50)) {
                    break;
                }
                try {
                    //try 50 per sec
                    Thread.sleep(50);
                } catch (InterruptedException e) {
                    e.printStackTrace();
                    return null;
                }
            }
        } while (!successFul);
        return successFul;
    }

    /**
     * 加锁，无阻塞
     * @param key
     * @param lockTime
     * @return
     */
    @Deprecated
    public Boolean tryDistributedLock(String key, long lockTime, TimeUnit lockTimeUnit) {
        RedisConnectionFactory factory = redisTemplate.getConnectionFactory();
        RedisConnection conn = factory.getConnection();
        try{
            Boolean result = conn.set(key.getBytes(Charset.forName("UTF-8")), LockKeyUtil.LOCK_VALUE.getBytes(Charset.forName("UTF-8")),
                    Expiration.from(lockTime, lockTimeUnit), RedisStringCommands.SetOption.SET_IF_ABSENT);
            return result;
        } finally {
//            RedisConnectionUtils.releaseConnection(conn, factory, false);
            RedisConnectionUtils.releaseConnection(conn, factory);
        }
    }

    /**
     * 解锁
     * @param
     * @return
     *//*
    @Deprecated
    public Boolean unlock(String key) {
        byte[][] keysAndArgs = new byte[2][];
        keysAndArgs[0] = key.getBytes(Charset.forName("UTF-8"));
        keysAndArgs[1] = LockKeyUtil.LOCK_VALUE.getBytes(Charset.forName("UTF-8"));
        RedisConnectionFactory factory = redisTemplate.getConnectionFactory();
        RedisConnection conn = factory.getConnection();
        try {
            Long result = (Long)conn.scriptingCommands().eval(unlockScript.getBytes(Charset.forName("UTF-8")), ReturnType.INTEGER, 1, keysAndArgs);
            if (Objects.nonNull(result) && result > 0) {
                return  true;
            }
        } finally {
//            RedisConnectionUtils.releaseConnection(conn, factory, false);
            RedisConnectionUtils.releaseConnection(conn, factory);
        }
        return false;
    }*/



    public Boolean tryDistributedLock(String name, long expire) {
//        redisTemplate.opsForValue().setIfAbsent(name, 1, expire, TimeUnit.SECONDS);
        return null;
    }

    public Boolean distributedLock(String name, long expire, long timeout) {
        try {
            if (expire > 0) {
//                redisTemplate.opsForValue().setIfAbsent(name, 1, expire, TimeUnit.SECONDS);
            }
            return null;
        } catch (Exception e) {
            e.printStackTrace();
            return null;
        }

    }

    public Boolean unlock(String name) {
        del(name);
        return true;
    }

    public String tryLock(String name, long expire) {
        return null;
    }

    public String lock(String name, long expire, long timeout) {
        try {
            if (expire > 0) {
                redisTemplate.opsForValue().set(name, 1, expire, TimeUnit.SECONDS);
            }
            return null;
        } catch (Exception e) {
            e.printStackTrace();
            return null;
        }

    }

    public boolean unlock(String name, String token) {
        del(name);
        return true;
    }




    public boolean lockTest() {
//        redisTemplate.opsForValue().setIfAbsent();
        return false;
    }



    /**
     * 指定缓存失效时间
     * @param key 键
     * @param time 时间(秒)
     * @return
     */
    public boolean expire(String key, long time) {
        try {
            if (time > 0) {
                redisTemplate.expire(key, time, TimeUnit.SECONDS);
            }
            return true;
        } catch (Exception e) {
            e.printStackTrace();
            return false;
        }
    }
    /**
     * 根据key 获取过期时间
     * @param key 键 不能为null
     * @return 时间(秒) 返回0代表为永久有效
     */
    public long getExpire(String key) {
        return redisTemplate.getExpire(key, TimeUnit.SECONDS);
    }
    /**
     * 判断key是否存在
     * @param key 键
     * @return true 存在 false不存在
     */
    public boolean hasKey(String key) {
        try {
            return redisTemplate.hasKey(key);
        } catch (Exception e) {
            e.printStackTrace();
            return false;
        }
    }
    /**
     * 删除缓存
     * @param key 可以传一个值 或多个
     */
    @SuppressWarnings("unchecked")
    public void del(String... key) {
        if (key != null && key.length > 0) {
            if (key.length == 1) {
                redisTemplate.delete(key[0]);
            } else {
                redisTemplate.delete(CollectionUtils.arrayToList(key));
            }
        }
    }
    // ============================String=============================
    /**
     * 普通缓存获取
     * @param key 键
     * @return 值
     */
    public Object get(String key) {
        return key == null ? null : redisTemplate.opsForValue().get(key);
    }
    /**
     * 普通缓存放入
     * @param key 键
     * @param value 值
     * @return true成功 false失败
     */
    public boolean set(String key, Object value) {
        try {
            redisTemplate.opsForValue().set(key, value);
            return true;
        } catch (Exception e) {
            e.printStackTrace();
            return false;
        }
    }
    /**
     * 普通缓存放入并设置时间
     * @param key 键
     * @param value 值
     * @param time 时间(秒) time要大于0 如果time小于等于0 将设置无限期
     * @return true成功 false 失败
     */
    public boolean set(String key, Object value, long time) {
        try {
            if (time > 0) {
                redisTemplate.opsForValue().set(key, value, time, TimeUnit.SECONDS);
            } else {
                set(key, value);
            }
            return true;
        } catch (Exception e) {
            e.printStackTrace();
            return false;
        }
    }
    /**
     * 递增
     * @param key 键
     * @param delta 要增加几(大于0)
     * @return
     */
    public long incr(String key, long delta) {
        if (delta < 0) {
            throw new RuntimeException("递增因子必须大于0");
        }
        return redisTemplate.opsForValue().increment(key, delta);
    }
    /**
     * 递减
     * @param key 键
     * @param delta 要减少几(小于0)
     * @return
     */
    public long decr(String key, long delta) {
        if (delta < 0) {
            throw new RuntimeException("递减因子必须大于0");
        }
        return redisTemplate.opsForValue().increment(key, -delta);
    }
    // ================================Map=================================
    /**
     * HashGet
     * @param key 键 不能为null
     * @param item 项 不能为null
     * @return 值
     */
    public Object hget(String key, String item) {
        return redisTemplate.opsForHash().get(key, item);
    }
    /**
     * 获取hashKey对应的所有键值
     * @param key 键
     * @return 对应的多个键值
     */
    public Map<Object, Object> hmget(String key) {
        return redisTemplate.opsForHash().entries(key);
    }
    /**
     * HashSet
     * @param key 键
     * @param map 对应多个键值
     * @return true 成功 false 失败
     */
    public boolean hmset(String key, Map<String, Object> map) {
        try {
            redisTemplate.opsForHash().putAll(key, map);
            return true;
        } catch (Exception e) {
            e.printStackTrace();
            return false;
        }
    }
    /**
     * HashSet 并设置时间
     * @param key 键
     * @param map 对应多个键值
     * @param time 时间(秒)
     * @return true成功 false失败
     */
    public boolean hmset(String key, Map<String, Object> map, long time) {
        try {
            redisTemplate.opsForHash().putAll(key, map);
            if (time > 0) {
                expire(key, time);
            }
            return true;
        } catch (Exception e) {
            e.printStackTrace();
            return false;
        }
    }
    /**
     * 向一张hash表中放入数据,如果不存在将创建
     * @param key 键
     * @param item 项
     * @param value 值
     * @return true 成功 false失败
     */
    public boolean hset(String key, String item, Object value) {
        try {
            redisTemplate.opsForHash().put(key, item, value);
            return true;
        } catch (Exception e) {
            e.printStackTrace();
            return false;
        }
    }
    /**
     * 向一张hash表中放入数据,如果不存在将创建
     * @param key 键
     * @param item 项
     * @param value 值
     * @param time 时间(秒) 注意:如果已存在的hash表有时间,这里将会替换原有的时间
     * @return true 成功 false失败
     */
    public boolean hset(String key, String item, Object value, long time) {
        try {
            redisTemplate.opsForHash().put(key, item, value);
            if (time > 0) {
                expire(key, time);
            }
            return true;
        } catch (Exception e) {
            e.printStackTrace();
            return false;
        }
    }
    /**
     * 删除hash表中的值
     * @param key 键 不能为null
     * @param item 项 可以使多个 不能为null
     */
    public void hdel(String key, Object... item) {
        redisTemplate.opsForHash().delete(key, item);
    }
    /**
     * 判断hash表中是否有该项的值
     * @param key 键 不能为null
     * @param item 项 不能为null
     * @return true 存在 false不存在
     */
    public boolean hHasKey(String key, String item) {
        return redisTemplate.opsForHash().hasKey(key, item);
    }
    /**
     * hash递增 如果不存在,就会创建一个 并把新增后的值返回
     * @param key 键
     * @param item 项
     * @param by 要增加几(大于0)
     * @return
     */
    public double hincr(String key, String item, double by) {
        return redisTemplate.opsForHash().increment(key, item, by);
    }
    /**
     * hash递减
     * @param key 键
     * @param item 项
     * @param by 要减少记(小于0)
     * @return
     */
    public double hdecr(String key, String item, double by) {
        return redisTemplate.opsForHash().increment(key, item, -by);
    }
    // ============================set=============================
    /**
     * 根据key获取Set中的所有值
     * @param key 键
     * @return
     */
    public Set<Object> sGet(String key) {
        try {
            return redisTemplate.opsForSet().members(key);
        } catch (Exception e) {
            e.printStackTrace();
            return null;
        }
    }
    /**
     * 根据value从一个set中查询,是否存在
     * @param key 键
     * @param value 值
     * @return true 存在 false不存在
     */
    public boolean sHasKey(String key, Object value) {
        try {
            return redisTemplate.opsForSet().isMember(key, value);
        } catch (Exception e) {
            e.printStackTrace();
            return false;
        }
    }
    /**
     * 将数据放入set缓存
     * @param key 键
     * @param values 值 可以是多个
     * @return 成功个数
     */
    public long sSet(String key, Object... values) {
        try {
            return redisTemplate.opsForSet().add(key, values);
        } catch (Exception e) {
            e.printStackTrace();
            return 0;
        }
    }
    /**
     * 将set数据放入缓存
     * @param key 键
     * @param time 时间(秒)
     * @param values 值 可以是多个
     * @return 成功个数
     */
    public long sSetAndTime(String key, long time, Object... values) {
        try {
            Long count = redisTemplate.opsForSet().add(key, values);
            if (time > 0)
                expire(key, time);
            return count;
        } catch (Exception e) {
            e.printStackTrace();
            return 0;
        }
    }
    /**
     * 获取set缓存的长度
     * @param key 键
     * @return
     */
    public long sGetSetSize(String key) {
        try {
            return redisTemplate.opsForSet().size(key);
        } catch (Exception e) {
            e.printStackTrace();
            return 0;
        }
    }
    /**
     * 移除值为value的
     * @param key 键
     * @param values 值 可以是多个
     * @return 移除的个数
     */
    public long setRemove(String key, Object... values) {
        try {
            Long count = redisTemplate.opsForSet().remove(key, values);
            return count;
        } catch (Exception e) {
            e.printStackTrace();
            return 0;
        }
    }
    // ===============================list=================================
    /**
     * 获取list缓存的内容
     * @param key 键
     * @param start 开始
     * @param end 结束 0 到 -1代表所有值
     * @return
     */
    public List<Object> lGet(String key, long start, long end) {
        try {
            return redisTemplate.opsForList().range(key, start, end);
        } catch (Exception e) {
            e.printStackTrace();
            return null;
        }
    }
    /**
     * 获取list缓存的长度
     * @param key 键
     * @return
     */
    public long lGetListSize(String key) {
        try {
            return redisTemplate.opsForList().size(key);
        } catch (Exception e) {
            e.printStackTrace();
            return 0;
        }
    }
    /**
     * 通过索引 获取list中的值
     * @param key 键
     * @param index 索引 index>=0时， 0 表头，1 第二个元素，依次类推；index<0时，-1，表尾，-2, 倒数第二个元素，依次类推
     * @return
     */
    public Object lGetIndex(String key, long index) {
        try {
            return redisTemplate.opsForList().index(key, index);
        } catch (Exception e) {
            e.printStackTrace();
            return null;
        }
    }
    /**
     * 将list放入缓存
     * @param key 键
     * @param value 值
     * @return
     */
    public boolean lSet(String key, Object value) {
        try {
            redisTemplate.opsForList().rightPush(key, value);
            return true;
        } catch (Exception e) {
            e.printStackTrace();
            return false;
        }
    }
    /**
     * 将list放入缓存
     * @param key 键
     * @param value 值
     * @param time 时间(秒)
     * @return
     */
    public boolean lSet(String key, Object value, long time) {
        try {
            redisTemplate.opsForList().rightPush(key, value);
            if (time > 0)
                expire(key, time);
            return true;
        } catch (Exception e) {
            e.printStackTrace();
            return false;
        }
    }
    /**
     * 将list放入缓存
     * @param key 键
     * @param value 值
     * @return
     */
    public boolean lSet(String key, List<Object> value) {
        try {
            redisTemplate.opsForList().rightPushAll(key, value);
            return true;
        } catch (Exception e) {
            e.printStackTrace();
            return false;
        }
    }
    /**
     * 将list放入缓存
     * 
     * @param key 键
     * @param value 值
     * @param time 时间(秒)
     * @return
     */
    public boolean lSet(String key, List<Object> value, long time) {
        try {
            redisTemplate.opsForList().rightPushAll(key, value);
            if (time > 0)
                expire(key, time);
            return true;
        } catch (Exception e) {
            e.printStackTrace();
            return false;
        }
    }
    /**
     * 根据索引修改list中的某条数据
     * @param key 键
     * @param index 索引
     * @param value 值
     * @return
     */
    public boolean lUpdateIndex(String key, long index, Object value) {
        try {
            redisTemplate.opsForList().set(key, index, value);
            return true;
        } catch (Exception e) {
            e.printStackTrace();
            return false;
        }
    }
    /**
     * 移除N个值为value
     * @param key 键
     * @param count 移除多少个
     * @param value 值
     * @return 移除的个数
     */
    public long lRemove(String key, long count, Object value) {
        try {
            Long remove = redisTemplate.opsForList().remove(key, count, value);
            return remove;
        } catch (Exception e) {
            e.printStackTrace();
            return 0;
        }
    }
}
